Family Forum 260/SOMC Family Forum 260 - Disc 2.iso/somc/WordWise.dir/00001_Script_1

Text File | 1999-01-14 | 5KB | 206 lines

on startMovie

  --* set the number of question in word wise

  global NUMOFQUESTIONS
  set NUMOFQUESTIONS to 21

   --* This declares the variables for the finger cursor. *

  global FINGER, FINGERMASK
  set FINGER to the number of member "Finger1"
  set FINGERMASK to the number of member "Finger2"

  --* set the paths and exe for the setups

  global E1SETUP,E2SETUP,E3SETUP,E4SETUP,INSTALL1, INSTALL2
  set E1SETUP to "@\SETUP.EXE" --ADAM
  set E2SETUP to "@\SETUP.EXE" --algebra
  set E3SETUP to ""
  set E4SETUP to ""

  set INSTALL1 to "@\DX5ENG.EXE"
  set INSTALL2 to "@\SETUP1.EXE"



  --* set weblink URLs

  global LINK1,LINK2,LINK3,LINK4,LINK5,LINK6,LINK7,LINK8,LINK9,LINK10
  set link1 to "http://www.woodberry.org/acad/hist/FRWEB/index.htm"
  set link2 to "http://users.massed.net/~mdurant/AncientEgyptWebquest.htm"
  set link3 to "http://www.finaid.org"
  set link4 to "http://www.ucla.edu/"
  set link5 to "http://www.clet.ait.ac.th/el21open.htm"
  set link6 to "http://www.biochemist.com/"
  set link7 to "http://www.intellicast.com/"
  set link8 to "http://libertyonline.hypermall.com/index.html"
  set link9 to "http://www.quoteland.com/"
  set link10 to "http://www.unc.edu/~rowlett/units/index.html"





  glowClear()
  --* turn on altglows
  glow(60,TRUE)
end




--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 50 to 65
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow

--* This is for using a HotSpot or Button for closing the window or a overlaid
--* cover up sprite THIS IS AN EXAMPLE NOT A HANDLER

--on mouseUp
--  global  enableHotspots
--  doClick()
--  if (the visible of sprite 35) then
--    hideFonts()
--    restoreBI()
--  else
--    close window "BIART"
--    forget window "BIART"
--    tell the stage to enableHotspots()
--  end if
--end mouseUp

--* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
--on mouseEnter
--  if not count(the windowList) then
--    doRollover(52)
--  end if
--end
--
--
--on mouseLeave
--  if not count(the windowList) then
--    doRollout(52)
--  end if
--end



--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
--
--on doRollover numsprite
--  glow(numsprite,TRUE)
--  global finger,fingermask
--  cursor[finger,fingermask]
--  updatestage
--  puppetsound 1, "rollsound"
--  --  repeat while soundbusy(1)
--  --  end repeat
--end




--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"clicksound"
  updateStage
end

--* CHECK THE ANSWER FOR WORDWIZE

on  checkAnswer

  global CORRECT,Ncount,ANSWER,TRIES,RIGHT

  put line Ncount of the text of member "ww3" into member "definition"
  set the fontSize of member "definition" to 18
  set the fontstyle of member "definition" to "bold"
  glow(20,TRUE)
  set TRIES to TRIES + 1
  if answer = CORRECT then
    glow(52,TRUE)
    puppetsound 1,"Woww1"
    updateStage
    set RIGHT to RIGHT + 1
  else
    glow(53,TRUE)
    puppetsound 1,"Buzzer2"
    updateStage
  end if
end

on finish

  global TRIES,RIGHT,scoreSTR

  go to "FIN"
  if (TRIES) THEN
    if ((float(RIGHT) / float(TRIES)) > .49) then
      puppetsound 1,"Glfclap1"
      updateStage
    end if
  end if
  set scoreSTR2 to "YOU GOT"&&string(RIGHT)&&"OUT OF"&&string(TRIES)&&"RIGHT"
  set the text of member "scoreSTR" to scoreSTR2
  updateStage

end



on doRollover numsprite,SOUNDNUM
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  updatestage
  case SOUNDNUM of
    1:
      puppetsound 1, "rollsound"
      --  repeat while soundbusy(1)
      --  end repeat
    2:
      puppetsound 1, "rollsound2"
      --  repeat while soundbusy(1)
      --  end repeat
  end case
end